Zjisteni URL

Otázka od: Zach Tomáš

14. 10. 2002 21:33

Poradte prosim jak zjistit aktualni URL z Exploreru, ktery ma focus. Nekde jsem
nasel zjistovani pomoci DDE, ale to neni presne ono:

procedure TForm1.Button1Click(Sender: TObject);
var DDE: TDdeClientConv;
    Browser,URL : String;
begin
  Browser := 'Iexplore';
  DDE := TDdeClientConv.Create(Self);
  if DDE.SetLink( Browser, 'WWW_GetWindowInfo') then
    URL := DDE.RequestData('0xFFFFFFFF, sURL, sTitle');
  DDE.Free;
end;

Dekuji Tomas Zach

---
Odchozí zpráva neobsahuje viry.
Zkontrolováno antivirovým systémem AVG (http://www.grisoft.cz).
Verze: 6.0.401 / Virová báze: 226 - datum vydání: 9.10.2002